/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_01 / extras / bucktscrll / BucktScrll

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 42 75 63 6b 74 53 63 72 |..... > |BucktScr|
|00000010| 6c 6c 0d 00 14 2e f4 20 | 62 79 20 4d 61 74 74 68 |ll..... |by Matth|
|00000020| 65 77 20 41 73 74 6c 65 | 79 20 20 20 56 31 2e 30 |ew Astle|y   V1.0|
|00000030| 30 20 20 28 32 37 2d 4a | 75 6c 2d 31 39 39 30 29 |0  (27-J|ul-1990)|
|00000040| 0d 00 1e 16 ee 20 85 20 | f6 3a f1 3b 22 20 61 74 |..... . |.:.;" at|
|00000050| 20 22 3b 9e 3a e0 0d 00 | 28 08 eb 20 31 33 0d 00 | ";.:...|(.. 13..|
|00000060| 32 09 f2 69 6e 69 74 0d | 00 3c 30 f1 22 42 55 43 |2..init.|.<0."BUC|
|00000070| 4b 45 54 20 53 43 52 4f | 4c 4c 45 52 20 20 20 20 |KET SCRO|LLER    |
|00000080| 20 20 20 20 62 79 20 4d | 61 74 74 68 65 77 20 41 |    by M|atthew A|
|00000090| 73 74 6c 65 79 22 27 0d | 00 46 09 f2 61 73 73 6d |stley"'.|.F..assm|
|000000a0| 0d 00 50 27 f1 20 22 43 | 6f 64 65 20 2b 20 74 65 |..P'. "C|ode + te|
|000000b0| 78 74 3a 20 20 22 3b 50 | 25 2d 63 6f 64 65 3b 22 |xt:  ";P|%-code;"|
|000000c0| 20 62 79 74 65 73 22 0d | 00 5a 21 f1 20 22 50 6c | bytes".|.Z!. "Pl|
|000000d0| 65 61 73 65 20 77 61 69 | 74 20 68 61 6c 66 20 61 |ease wai|t half a|
|000000e0| 20 6d 6f 2e 2e 2e 22 3b | 0d 00 64 0a f2 74 61 62 | mo...";|..d..tab|
|000000f0| 6c 65 0d 00 6e 35 f1 20 | 3b bd 31 33 3b 22 54 61 |le..n5. |;.13;"Ta|
|00000100| 62 6c 65 3a 20 22 3b a8 | 28 30 2e 35 2b 28 50 25 |ble: ";.|(0.5+(P%|
|00000110| 2d 74 61 62 6c 65 29 2f | 31 30 32 34 29 3b 22 4b |-table)/|1024);"K|
|00000120| 22 3b 89 28 32 30 29 0d | 00 78 1f f1 20 22 50 72 |";.(20).|.x.. "Pr|
|00000130| 65 73 73 20 73 70 61 63 | 65 20 74 6f 20 73 68 75 |ess spac|e to shu|
|00000140| 66 66 6c 65 22 3b 0d 00 | 82 08 e7 a5 20 db 0d 00 |ffle";..|.... ...|
|00000150| 8c 0e 21 4d 65 6e 64 3d | 50 25 2d 38 0d 00 96 07 |..!Mend=|P%-8....|
|00000160| f2 67 6f 0d 00 a0 05 e0 | 0d 00 aa 05 3a 0d 00 b4 |.go.....|....:...|
|00000170| 0b dd 20 f2 69 6e 69 74 | 0d 00 be 47 20 66 67 3d |.. .init|...G fg=|
|00000180| 32 30 32 20 20 20 3a f4 | 20 4c 69 67 68 74 20 62 |202   :.| Light b|
|00000190| 6c 75 65 20 7d 20 20 42 | 79 74 65 73 20 74 6f 20 |lue }  B|ytes to |
|000001a0| 70 6f 6b 65 20 74 6f 20 | 73 63 72 65 65 6e 3b 20 |poke to |screen; |
|000001b0| 63 6f 6c 6f 75 72 73 20 | 6f 66 20 74 65 78 74 0d |colours |of text.|
|000001c0| 00 c8 1d 20 62 67 3d 20 | 20 30 20 20 20 3a f4 20 |... bg= | 0   :. |
|000001d0| 42 6c 61 63 6b 20 20 20 | 20 20 20 7d 0d 00 d2 23 |Black   |   }...#|
|000001e0| 20 73 70 65 65 64 25 3d | 32 20 3a f4 20 50 69 78 | speed%=|2 :. Pix|
|000001f0| 65 6c 73 20 70 65 72 20 | 73 68 75 66 66 6c 65 0d |els per |shuffle.|
|00000200| 00 dc 3e 20 f4 20 8a 20 | 58 3d 30 2d 33 31 39 2c |..> . . |X=0-319,|
|00000210| 20 59 3d 30 2d 32 35 35 | 20 5b 30 2c 30 5d 20 69 | Y=0-255| [0,0] i|
|00000220| 73 20 74 6f 70 20 72 69 | 67 68 74 2e 20 31 20 75 |s top ri|ght. 1 u|
|00000230| 6e 69 74 20 3d 20 31 20 | 70 69 78 65 6c 0d 00 e6 |nit = 1 |pixel...|
|00000240| 0f 20 f4 20 46 6f 72 6d | 75 6c 61 3a 0d 00 f0 27 |. . Form|ula:...'|
|00000250| 20 66 24 3d 22 31 32 38 | 2d 53 49 4e 52 41 44 28 | f$="128|-SINRAD(|
|00000260| 33 36 30 2a 58 2f 33 32 | 30 29 2a 36 30 2b 63 6f |360*X/32|0)*60+co|
|00000270| 6c 25 22 0d 00 fa 7f 20 | f4 20 4e 42 2e 20 49 66 |l%".... |. NB. If|
|00000280| 20 74 68 65 20 66 6f 72 | 6d 75 6c 61 20 67 6f 65 | the for|mula goe|
|00000290| 73 20 6f 66 66 20 74 68 | 65 20 73 63 72 65 65 6e |s off th|e screen|
|000002a0| 2c 20 69 74 20 77 69 6c | 6c 20 65 69 74 68 65 72 |, it wil|l either|
|000002b0| 20 77 72 61 70 20 74 6f | 20 74 68 65 20 6f 74 68 | wrap to| the oth|
|000002c0| 65 72 20 73 69 64 65 2c | 20 67 69 76 65 20 41 64 |er side,| give Ad|
|000002d0| 64 72 65 73 73 20 65 78 | 63 65 70 74 69 6f 6e 20 |dress ex|ception |
|000002e0| 6f 72 20 6a 75 73 74 20 | 64 6f 20 6e 6f 74 68 69 |or just |do nothi|
|000002f0| 6e 67 0d 01 04 05 3a 0d | 01 0e 09 58 3d 33 31 39 |ng....:.|...X=319|
|00000300| 0d 01 18 46 63 6f 6c 25 | 3d 31 36 20 20 20 20 20 |...Fcol%|=16     |
|00000310| 20 20 3a f4 20 46 6f 72 | 20 6d 6f 72 65 20 74 68 |  :. For| more th|
|00000320| 61 6e 20 31 36 2c 20 69 | 74 20 73 74 61 72 74 73 |an 16, i|t starts|
|00000330| 20 73 6c 6f 77 69 6e 67 | 20 64 6f 77 6e 20 61 20 | slowing| down a |
|00000340| 62 69 74 2e 2e 2e 0d 01 | 22 42 20 20 20 20 20 20 |bit.....|"B      |
|00000350| 20 20 20 20 20 20 20 20 | 3a f4 20 55 6e 6c 65 73 |        |:. Unles|
|00000360| 73 20 79 6f 75 20 68 61 | 76 65 20 61 6e 20 41 52 |s you ha|ve an AR|
|00000370| 4d 20 33 2e 2e 2e 20 20 | 54 72 79 20 71 75 61 64 |M 3...  |Try quad|
|00000380| 20 68 65 69 67 68 74 21 | 0d 01 2c 3b 73 74 58 25 | height!|..,;stX%|
|00000390| 3d 58 20 20 20 20 20 20 | 20 20 3a f4 20 58 20 6f |=X      |  :. X o|
|000003a0| 66 20 73 74 61 72 74 20 | 6f 66 20 74 65 78 74 20 |f start |of text |
|000003b0| 28 69 63 20 2d 20 30 2d | 33 31 39 2c 20 30 2d 32 |(ic - 0-|319, 0-2|
|000003c0| 35 35 29 0d 01 36 1c 73 | 74 59 25 3d a0 28 66 24 |55)..6.s|tY%=.(f$|
|000003d0| 29 20 3a f4 20 59 20 6f | 66 20 73 74 61 72 74 0d |) :. Y o|f start.|
|000003e0| 01 40 1b de 20 78 25 28 | 63 6f 6c 25 2d 31 29 2c |.@.. x%(|col%-1),|
|000003f0| 79 25 28 63 6f 6c 25 2d | 31 29 0d 01 4a 05 3a 0d |y%(col%-|1)..J.:.|
|00000400| 01 54 3a de 20 63 6f 64 | 65 20 32 35 36 30 2a 63 |.T:. cod|e 2560*c|
|00000410| 6f 6c 25 2b 35 31 32 2b | 31 30 32 34 2a 31 30 20 |ol%+512+|1024*10 |
|00000420| 3a f4 20 41 6c 6c 6f 77 | 73 20 66 6f 72 20 31 30 |:. Allow|s for 10|
|00000430| 6b 20 6f 66 20 74 65 78 | 74 0d 01 5e 0d 21 63 6f |k of tex|t..^.!co|
|00000440| 64 65 3d 31 34 39 0d 01 | 68 0d 63 6f 64 65 21 34 |de=149..|h.code!4|
|00000450| 3d 2d 31 0d 01 72 26 c8 | 99 20 22 4f 53 5f 52 65 |=-1..r&.|. "OS_Re|
|00000460| 61 64 56 64 75 56 61 72 | 69 61 62 6c 65 73 22 2c |adVduVar|iables",|
|00000470| 63 6f 64 65 2c 63 6f 64 | 65 0d 01 7c 0e 73 63 72 |code,cod|e..|.scr|
|00000480| 25 3d 21 63 6f 64 65 0d | 01 86 05 e1 0d 01 90 05 |%=!code.|........|
|00000490| 3a 0d 01 9a 0b dd 20 f2 | 61 73 73 6d 0d 01 a4 14 |:..... .|assm....|
|000004a0| e3 20 70 61 73 73 3d 30 | 20 b8 20 32 20 88 20 32 |. pass=0| . 2 . 2|
|000004b0| 0d 01 ae 0b 50 25 3d 63 | 6f 64 65 0d 01 b8 0d 5b |....P%=c|ode....[|
|000004c0| 4f 50 54 20 70 61 73 73 | 0d 01 c2 12 2e 64 75 6d |OPT pass|.....dum|
|000004d0| 6d 79 20 20 45 51 55 44 | 20 30 0d 01 cc 12 2e 4d |my  EQUD| 0.....M|
|000004e0| 65 6e 64 20 20 20 45 51 | 55 44 20 30 0d 01 d6 15 |end   EQ|UD 0....|
|000004f0| 2e 4d 74 65 78 74 20 20 | 45 51 55 44 20 74 65 78 |.Mtext  |EQUD tex|
|00000500| 74 0d 01 e0 16 2e 4d 74 | 61 62 6c 65 20 45 51 55 |t.....Mt|able EQU|
|00000510| 44 20 74 61 62 6c 65 0d | 01 ea 26 2e 69 6e 70 75 |D table.|..&.inpu|
|00000520| 74 20 3a 5d 3a 50 25 2b | 3d 63 6f 6c 25 3a 5b 4f |t :]:P%+|=col%:[O|
|00000530| 50 54 20 70 61 73 73 3a | 41 4c 49 47 4e 0d 01 f4 |PT pass:|ALIGN...|
|00000540| 2b 2e 69 6e 64 65 78 20 | 20 45 51 55 44 20 30 20 |+.index | EQUD 0 |
|00000550| 3b 20 49 6e 64 65 78 20 | 69 6e 74 6f 20 74 65 78 |; Index |into tex|
|00000560| 74 20 73 74 72 69 6e 67 | 0d 01 fe 34 2e 6c 65 6e |t string|...4.len|
|00000570| 54 20 20 20 45 51 55 44 | 20 65 6e 64 54 78 74 2d |T   EQUD| endTxt-|
|00000580| 74 65 78 74 20 3b 20 4c | 65 6e 67 74 68 20 6f 66 |text ; L|ength of|
|00000590| 20 74 65 78 74 20 73 74 | 72 69 6e 67 0d 02 08 05 | text st|ring....|
|000005a0| 3a 0d 02 12 33 2e 42 6c | 65 66 74 20 20 45 51 55 |:...3.Bl|eft  EQU|
|000005b0| 42 20 34 20 3b 20 42 69 | 74 73 20 6c 65 66 74 20 |B 4 ; Bi|ts left |
|000005c0| 69 6e 20 63 75 72 72 65 | 6e 74 20 63 68 61 72 61 |in curre|nt chara|
|000005d0| 63 74 65 72 0d 02 1c 05 | 3a 0d 02 26 23 2e 63 68 |cter....|:..&#.ch|
|000005e0| 61 72 20 20 20 45 51 55 | 42 20 30 20 3b 20 4e 65 |ar   EQU|B 0 ; Ne|
|000005f0| 78 74 20 63 68 61 72 61 | 63 74 65 72 0d 02 30 3f |xt chara|cter..0?|
|00000600| 2e 62 69 74 73 20 20 20 | 45 51 55 44 20 30 3a 45 |.bits   |EQUD 0:E|
|00000610| 51 55 44 20 30 20 3b 20 | 42 69 74 73 20 6f 66 20 |QUD 0 ; |Bits of |
|00000620| 63 75 72 72 65 6e 74 20 | 63 68 61 72 20 61 73 20 |current |char as |
|00000630| 66 72 6f 6d 20 4f 53 57 | 4f 52 44 0d 02 3a 09 41 |from OSW|ORD..:.A|
|00000640| 4c 49 47 4e 0d 02 44 05 | 3a 0d 02 4e 0c 2e 73 68 |LIGN..D.|:..N..sh|
|00000650| 75 66 66 6c 65 0d 02 58 | 33 4d 4f 56 20 52 30 2c |uffle..X|3MOV R0,|
|00000660| 23 31 39 3a 53 57 49 20 | 22 4f 53 5f 42 79 74 65 |#19:SWI |"OS_Byte|
|00000670| 22 20 3b 20 57 61 69 74 | 20 66 6f 72 20 73 63 72 |" ; Wait| for scr|
|00000680| 65 65 6e 20 73 79 6e 63 | 0d 02 62 11 4c 44 52 42 |een sync|..b.LDRB|
|00000690| 20 52 30 2c 42 6c 65 66 | 74 0d 02 6c 0d 43 4d 50 | R0,Blef|t..l.CMP|
|000006a0| 20 52 30 2c 23 34 0d 02 | 76 0e 42 4e 45 20 6e 6f | R0,#4..|v.BNE no|
|000006b0| 5f 70 75 74 0d 02 80 10 | 4c 44 52 20 52 30 2c 4d |_put....|LDR R0,M|
|000006c0| 74 65 78 74 0d 02 8a 10 | 4c 44 52 20 52 31 2c 69 |text....|LDR R1,i|
|000006d0| 6e 64 65 78 0d 02 94 0f | 4c 44 52 20 52 33 2c 6c |ndex....|LDR R3,l|
|000006e0| 65 6e 54 0d 02 9e 13 4c | 44 52 42 20 52 32 2c 5b |enT....L|DRB R2,[|
|000006f0| 52 30 2c 52 31 5d 0d 02 | a8 10 53 54 52 42 20 52 |R0,R1]..|..STRB R|
|00000700| 32 2c 63 68 61 72 0d 02 | b2 10 41 44 44 20 52 31 |2,char..|..ADD R1|
|00000710| 2c 52 31 2c 23 31 0d 02 | bc 0d 43 4d 50 20 52 31 |,R1,#1..|..CMP R1|
|00000720| 2c 52 33 0d 02 c6 0c ec | 51 20 52 31 2c 23 30 0d |,R3.....|Q R1,#0.|
|00000730| 02 d0 10 53 54 52 20 52 | 31 2c 69 6e 64 65 78 0d |...STR R|1,index.|
|00000740| 02 da 0b 2e 6e 6f 5f 70 | 75 74 0d 02 e4 0d 4d 4f |....no_p|ut....MO|
|00000750| 56 20 52 30 2c 23 38 0d | 02 ee 0f 41 44 52 20 52 |V R0,#8.|...ADR R|
|00000760| 31 2c 62 69 74 73 0d 02 | f8 10 41 44 52 20 52 33 |1,bits..|..ADR R3|
|00000770| 2c 69 6e 70 75 74 0d 03 | 02 0d 2e 62 69 74 5f 6c |,input..|...bit_l|
|00000780| 6f 6f 70 0d 03 0c 10 4c | 44 52 42 20 52 32 2c 5b |oop....L|DRB R2,[|
|00000790| 52 31 5d 0d 03 16 16 4d | 4f 56 53 20 52 32 2c 52 |R1]....M|OVS R2,R|
|000007a0| 32 2c 4c 53 4c 20 23 32 | 35 0d 03 20 15 4d 4f 56 |2,LSL #2|5.. .MOV|
|000007b0| 20 52 32 2c 52 32 2c 4c | 53 52 20 23 32 34 0d 03 | R2,R2,L|SR #24..|
|000007c0| 2a 13 53 54 52 42 20 52 | 32 2c 5b 52 31 5d 2c 23 |*.STRB R|2,[R1],#|
|000007d0| 31 0d 03 34 10 4d 4f 56 | 43 43 20 52 32 2c 23 62 |1..4.MOV|CC R2,#b|
|000007e0| 67 0d 03 3e 10 4d 4f 56 | 43 53 20 52 32 2c 23 66 |g..>.MOV|CS R2,#f|
|000007f0| 67 0d 03 48 13 53 54 52 | 42 20 52 32 2c 5b 52 33 |g..H.STR|B R2,[R3|
|00000800| 5d 2c 23 31 0d 03 52 23 | 53 54 52 42 20 52 32 2c |],#1..R#|STRB R2,|
|00000810| 5b 52 33 5d 2c 23 31 20 | 3b 20 44 6f 75 62 6c 65 |[R3],#1 |; Double|
|00000820| 20 68 65 69 67 68 74 0d | 03 5c 11 53 55 42 53 20 | height.|.\.SUBS |
|00000830| 52 30 2c 52 30 2c 23 31 | 0d 03 66 10 42 4e 45 20 |R0,R0,#1|..f.BNE |
|00000840| 62 69 74 5f 6c 6f 6f 70 | 0d 03 70 11 4c 44 52 42 |bit_loop|..p.LDRB|
|00000850| 20 52 30 2c 42 6c 65 66 | 74 0d 03 7a 11 53 55 42 | R0,Blef|t..z.SUB|
|00000860| 53 20 52 30 2c 52 30 2c | 23 31 0d 03 84 11 53 54 |S R0,R0,|#1....ST|
|00000870| 52 42 20 52 30 2c 42 6c | 65 66 74 0d 03 8e 0f 42 |RB R0,Bl|eft....B|
|00000880| 4e 45 20 6e 6f 5f 6e 65 | 78 74 0d 03 98 1e 4d 4f |NE no_ne|xt....MO|
|00000890| 56 20 52 30 2c 23 31 30 | 20 3b 20 52 65 61 64 20 |V R0,#10| ; Read |
|000008a0| 63 68 72 20 64 65 66 6e | 0d 03 a2 33 41 44 52 20 |chr defn|...3ADR |
|000008b0| 52 31 2c 63 68 61 72 20 | 3b 20 43 68 72 20 74 6f |R1,char |; Chr to|
|000008c0| 20 72 65 61 64 2c 20 61 | 64 64 72 65 73 73 20 74 | read, a|ddress t|
|000008d0| 6f 20 61 6e 73 77 65 72 | 20 69 6e 0d 03 ac 11 53 |o answer| in....S|
|000008e0| 57 49 20 22 4f 53 5f 57 | 6f 72 64 22 0d 03 b6 1b |WI "OS_W|ord"....|
|000008f0| 4d 4f 56 20 52 30 2c 23 | 38 3a 53 54 52 42 20 52 |MOV R0,#|8:STRB R|
|00000900| 30 2c 42 6c 65 66 74 0d | 03 c0 0c 2e 6e 6f 5f 6e |0,Bleft.|....no_n|
|00000910| 65 78 74 0d 03 ca 0f 4c | 44 52 20 52 30 2c 4d 65 |ext....L|DR R0,Me|
|00000920| 6e 64 0d 03 d4 11 4c 44 | 52 20 52 31 2c 4d 74 61 |nd....LD|R R1,Mta|
|00000930| 62 6c 65 0d 03 de 09 2e | 6c 6f 6f 70 0d 03 e8 14 |ble.....|loop....|
|00000940| 4c 44 4d 49 41 20 52 30 | 2c 7b 52 33 2c 52 34 7d |LDMIA R0|,{R3,R4}|
|00000950| 0d 03 f2 10 53 55 42 20 | 52 30 2c 52 30 2c 23 38 |....SUB |R0,R0,#8|
|00000960| 0d 03 fc 10 4c 44 52 42 | 20 52 32 2c 5b 52 33 5d |....LDRB| R2,[R3]|
|00000970| 0d 04 06 10 53 54 52 42 | 20 52 32 2c 5b 52 34 5d |....STRB| R2,[R4]|
|00000980| 0d 04 10 0d 43 4d 50 20 | 52 30 2c 52 31 0d 04 1a |....CMP |R0,R1...|
|00000990| 0c 42 4e 45 20 6c 6f 6f | 70 0d 04 24 0e 4d 4f 56 |.BNE loo|p..$.MOV|
|000009a0| 20 50 43 2c 52 31 34 0d | 04 2e 05 3a 0d 04 38 09 | PC,R14.|...:..8.|
|000009b0| 2e 74 65 78 74 0d 04 42 | 5b 45 51 55 53 20 22 2a |.text..B|[EQUS "*|
|000009c0| 20 2a 20 2a 20 20 54 68 | 69 73 20 69 73 20 61 20 | * *  Th|is is a |
|000009d0| 62 75 63 6b 65 74 2d 62 | 72 69 67 61 64 65 20 6f |bucket-b|rigade o|
|000009e0| 72 20 63 6f 6e 76 65 79 | 6f 72 20 62 65 6c 74 20 |r convey|or belt |
|000009f0| 73 63 72 6f 6c 6c 20 62 | 79 20 4d 61 74 74 68 65 |scroll b|y Matthe|
|00000a00| 77 20 41 73 74 6c 65 79 | 20 20 2a 20 2a 20 2a 22 |w Astley|  * * *"|
|00000a10| 0d 04 4c a6 45 51 55 53 | 20 22 20 20 20 20 20 20 |..L.EQUS| "      |
|00000a20| 20 20 20 20 49 66 20 79 | 6f 75 20 61 72 65 20 6d |    If y|ou are m|
|00000a30| 61 64 20 65 6e 6f 75 67 | 68 20 74 6f 20 77 61 6e |ad enoug|h to wan|
|00000a40| 74 20 74 6f 20 75 73 65 | 20 69 74 20 69 6e 20 61 |t to use| it in a|
|00000a50| 6e 20 65 78 68 69 62 69 | 74 69 6f 6e 20 6f 72 20 |n exhibi|tion or |
|00000a60| 73 6f 6d 65 74 68 69 6e | 67 20 6f 66 20 74 68 61 |somethin|g of tha|
|00000a70| 74 20 6e 61 74 75 72 65 | 2c 20 79 6f 75 20 63 61 |t nature|, you ca|
|00000a80| 6e 20 63 68 61 6e 67 65 | 20 74 68 65 20 74 65 78 |n change| the tex|
|00000a90| 74 20 77 68 65 72 65 20 | 69 74 20 73 61 79 73 20 |t where |it says |
|00000aa0| 22 22 2e 74 65 78 74 22 | 22 20 69 6e 20 50 52 4f |"".text"|" in PRO|
|00000ab0| 43 61 73 73 6d 22 0d 04 | 56 55 45 51 55 53 20 22 |Cassm"..|VUEQUS "|
|00000ac0| 20 20 54 68 65 20 74 65 | 78 74 20 73 68 6f 75 6c |  The te|xt shoul|
|00000ad0| 64 20 62 65 20 64 69 76 | 69 64 65 64 20 75 70 20 |d be div|ided up |
|00000ae0| 69 6e 74 6f 20 73 65 63 | 74 69 6f 6e 73 20 6f 66 |into sec|tions of|
|00000af0| 20 6c 65 73 73 20 74 68 | 61 6e 20 32 35 35 20 63 | less th|an 255 c|
|00000b00| 68 61 72 61 63 74 65 72 | 73 2e 22 0d 04 60 7f 45 |haracter|s."..`.E|
|00000b10| 51 55 53 20 22 20 20 20 | 20 20 49 66 20 79 6f 75 |QUS "   |  If you|
|00000b20| 20 77 61 6e 74 20 74 72 | 69 70 6c 65 20 68 65 69 | want tr|iple hei|
|00000b30| 67 68 74 20 74 65 78 74 | 2c 20 61 64 64 20 61 6e |ght text|, add an|
|00000b40| 6f 74 68 65 72 20 22 22 | 53 54 52 42 20 52 32 2c |other ""|STRB R2,|
|00000b50| 5b 52 33 5d 2c 23 31 22 | 22 20 61 66 74 65 72 20 |[R3],#1"|" after |
|00000b60| 77 68 65 72 65 20 69 74 | 20 73 61 79 73 20 44 6f |where it| says Do|
|00000b70| 75 62 6c 65 20 68 65 69 | 67 68 74 20 69 6e 20 2e |uble hei|ght in .|
|00000b80| 73 68 75 66 66 6c 65 20 | 2c 22 0d 04 6a 6f 45 51 |shuffle |,"..joEQ|
|00000b90| 55 53 20 22 41 6e 64 20 | 63 68 61 6e 67 65 20 74 |US "And |change t|
|00000ba0| 68 65 20 63 6f 6c 25 3d | 31 36 20 74 6f 20 63 6f |he col%=|16 to co|
|00000bb0| 6c 25 3d 32 34 20 69 6e | 20 50 52 4f 43 69 6e 69 |l%=24 in| PROCini|
|00000bc0| 74 2e 20 20 20 20 20 54 | 68 65 20 70 61 74 68 20 |t.     T|he path |
|00000bd0| 66 6f 72 6d 75 6c 61 20 | 63 61 6e 20 61 6c 73 6f |formula |can also|
|00000be0| 20 62 65 20 63 68 61 6e | 67 65 64 20 69 6e 20 50 | be chan|ged in P|
|00000bf0| 52 4f 43 69 6e 69 74 2e | 22 0d 04 74 42 45 51 55 |ROCinit.|"..tBEQU|
|00000c00| 53 20 22 20 20 20 20 20 | 41 74 20 74 68 65 20 65 |S "     |At the e|
|00000c10| 6e 64 20 6f 66 20 74 68 | 65 20 74 65 78 74 2c 20 |nd of th|e text, |
|00000c20| 69 74 20 72 65 70 65 61 | 74 73 3a 20 20 20 20 20 |it repea|ts:     |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 22 0d 04 7e 0b 2e |        |  "..~..|
|00000c40| 65 6e 64 54 78 74 0d 04 | 88 09 41 4c 49 47 4e 0d |endTxt..|..ALIGN.|
|00000c50| 04 92 05 3a 0d 04 9c 0a | 2e 74 61 62 6c 65 0d 04 |...:....|.table..|
|00000c60| a6 07 5d 3a ed 0d 04 b0 | 05 e1 0d 04 ba 05 3a 0d |..]:....|......:.|
|00000c70| 04 c4 09 dd 20 f2 67 6f | 0d 04 ce 05 87 0d 04 d8 |.... .go|........|
|00000c80| 05 f5 0d 04 e2 0e 20 d6 | 20 73 68 75 66 66 6c 65 |...... .| shuffle|
|00000c90| 0d 04 ec 07 fd 20 30 0d | 04 f6 05 e1 0d 05 00 05 |..... 0.|........|
|00000ca0| 3a 0d 05 0a 0c dd 20 f2 | 74 61 62 6c 65 0d 05 14 |:..... .|table...|
|00000cb0| 05 f7 0d 05 1e 13 e3 20 | 41 25 3d 30 20 b8 20 63 |....... |A%=0 . c|
|00000cc0| 6f 6c 25 2d 31 0d 05 28 | 10 20 78 25 28 41 25 29 |ol%-1..(|. x%(A%)|
|00000cd0| 3d 73 74 58 25 0d 05 32 | 13 20 79 25 28 41 25 29 |=stX%..2|. y%(A%)|
|00000ce0| 3d 73 74 59 25 2b 41 25 | 0d 05 3c 05 ed 0d 05 46 |=stY%+A%|..<....F|
|00000cf0| 43 e7 20 73 70 65 65 64 | 25 3c 31 20 84 20 73 70 |C. speed|%<1 . sp|
|00000d00| 65 65 64 25 3e 38 20 8c | 20 85 20 30 2c 22 43 68 |eed%>8 .| . 0,"Ch|
|00000d10| 6f 6f 73 65 20 61 20 72 | 65 61 73 6f 6e 61 62 6c |oose a r|easonabl|
|00000d20| 65 20 73 70 65 65 64 2c | 20 70 6c 65 61 73 65 22 |e speed,| please"|
|00000d30| 0d 05 50 05 f5 0d 05 5a | 2d 20 e3 20 43 25 3d 30 |..P....Z|- . C%=0|
|00000d40| 20 b8 20 63 6f 6c 25 2d | 31 3a f4 20 43 25 20 75 | . col%-|1:. C% u|
|00000d50| 73 65 64 20 69 6e 20 50 | 52 4f 43 74 6f 5f 66 72 |sed in P|ROCto_fr|
|00000d60| 6f 6d 0d 05 64 15 20 20 | e3 20 53 25 3d 31 20 b8 |om..d.  |. S%=1 .|
|00000d70| 20 73 70 65 65 64 25 0d | 05 6e 20 20 20 20 58 3d | speed%.|.n    X=|
|00000d80| 78 25 28 30 29 2d 53 25 | 3a 4e 25 3d a0 28 66 24 |x%(0)-S%|:N%=.(f$|
|00000d90| 29 2d 79 25 28 30 29 0d | 05 78 32 20 20 20 f2 74 |)-y%(0).|.x2   .t|
|00000da0| 6f 5f 66 72 6f 6d 28 78 | 25 28 43 25 29 2c 79 25 |o_from(x|%(C%),y%|
|00000db0| 28 43 25 29 2c 78 25 28 | 43 25 29 2d 53 25 2c 79 |(C%),x%(|C%)-S%,y|
|00000dc0| 25 28 43 25 29 2b 4e 25 | 29 0d 05 82 07 20 20 ed |%(C%)+N%|)....  .|
|00000dd0| 0d 05 8c 06 20 ed 0d 05 | 96 15 20 78 25 28 29 3d |.... ...|.. x%()=|
|00000de0| 78 25 28 29 2d 73 70 65 | 65 64 25 0d 05 a0 11 20 |x%()-spe|ed%.... |
|00000df0| 79 25 28 29 3d 79 25 28 | 29 2b 4e 25 0d 05 aa 0d |y%()=y%(|)+N%....|
|00000e00| fd 20 78 25 28 30 29 3c | 33 0d 05 b4 05 e1 0d 05 |. x%(0)<|3.......|
|00000e10| be 05 3a 0d 05 c8 1b dd | 20 f2 74 6f 5f 66 72 6f |..:.....| .to_fro|
|00000e20| 6d 28 58 25 2c 59 25 2c | 41 25 2c 42 25 29 0d 05 |m(X%,Y%,|A%,B%)..|
|00000e30| d2 3b f4 20 50 69 78 65 | 6c 20 28 58 25 2c 59 25 |.;. Pixe|l (X%,Y%|
|00000e40| 29 20 74 6f 20 28 41 25 | 2c 42 25 29 20 28 49 66 |) to (A%|,B%) (If|
|00000e50| 20 58 25 3d 33 31 39 2c | 20 73 6f 75 72 63 65 20 | X%=319,| source |
|00000e60| 69 73 20 69 6e 70 75 74 | 29 0d 05 dc 30 e7 20 58 |is input|)...0. X|
|00000e70| 25 3c 33 31 39 20 8c 20 | 21 50 25 3d 73 63 72 25 |%<319 . |!P%=scr%|
|00000e80| 2b 58 25 2b 59 25 2a 33 | 32 30 20 8b 20 21 50 25 |+X%+Y%*3|20 . !P%|
|00000e90| 3d 69 6e 70 75 74 2b 43 | 25 0d 05 e6 17 50 25 21 |=input+C|%....P%!|
|00000ea0| 34 3d 73 63 72 25 2b 41 | 25 2b 42 25 2a 33 32 30 |4=scr%+A|%+B%*320|
|00000eb0| 0d 05 f0 0d 3f 28 50 25 | 21 34 29 3d 91 0d 05 fa |....?(P%|!4)=....|
|00000ec0| 09 50 25 2b 3d 38 0d 06 | 04 05 e1 0d ff          |.P%+=8..|.....   |
+--------+-------------------------+-------------------------+--------+--------+